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Version: *v04-000' 
PARARAAAALALALLALALALAALE SESE LEAE EEE EEE EEE EERE EERE EERE E CELE EES ESE SESE EES EEE aS 
e ® 
* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; ALL RIGHTS RESERVED. 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
e ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. . 
® 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 
OSI Tne A Ae EE NN APN A SORT: TER 


Author Brian Porter Creation Date 03-NO0V-1981 
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Functional description: 


This a collection of routines that are called to output 
software information in device error entries. 


Modified by: 

V03-003 SARO214 Sharon A. peyneiés 28-Mar-1984 
changed the name/output label of UCBSL_OWNUIC to 
ORBSC_OWNER. 

v03-002 BP0003 Brian Porter, 20-AUG-1982 
Minor edit. 

v03-001 BP0002 Brien Porter, 01-MAR-1982 


Added more routines. 


subroutine ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 


VAX=11 FORTRAN 


it Pees Page 
DISKSVMSMASTER: CERF .SRCIDTAILS.FOR;1 


UCBSB_ERTCNT 


p08 byte Lun 
byte emb$b_dv_ertcnt 
integert4 remaining_retries 
integere4 compress4 


remaining_retries = LibSextzv(0,8,emb$b_dv_ertcnt) 

call Linchk (lun,2) 

write(lun,10) emb$b_dv_ertcnt,remaining_retries 
it $0,222.) 


10 format(’ *,t8,'UCBSB_ERTCNT',t : 2,75 
1 t40,i<compress4 (remaining_retries)>,'. RETRIES REMAINING’) 
return 
end 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 9 PIC CON REL LCL SHR _ EXE 
1 SPDATA 6 PIC CON REL LCL — SHR NOEXE 
2 SLOCAL 40 PIC CON REL LCL NOSHR NOEXE R&D 
Total Space Allocated 203 


ENTRY POINTS 


Address Type Name 
0-00000000 UCBSB_ERTCNT 
VARIABLES 
Address Type Name Address Type Name 
AP 82a L*1 EMBSB_DV_ERTCNT AP-000000048 L*1 LUN 
5 0o008008 I*4 REMAIRNING_RETRIES 


ifSen-1964 90:20:11 


VAX=11 FORTRAN ¥3.4-56 


DISKSVMSMASTER: CERF .SRCIDTAILS.FOR;1 


RD NOWRT LONG 
RD NOWRT LONG 


WRT LONG 
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00: 
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UCBSB_ERTCNT 


LABELS 
Address Label 
1-0000000C 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4S 


Type Name Type Name 
I*4 LIBSEXTZV LINCHK 


ie 


138¢ 99:89:32 
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DISK 


1 FOR 
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1b-Sep-1984 00:20:11 
73een 1 bbe 41 83:4) 


subroutine ucb$b_ertmax (lun,emb$b_dv_ertmax) 


byte Lun 

byte emb$b_dv_ertmax 
integer*4 maximum_retries 
integer*4 compress4 


maximum_retries = LibSextzv(0,8,emb$b_dv_ertmax) 

call Linchk (Llun,2) 

write(lun, 10) re dv orient 8 ximum_ petetes 

format(’ *,t8,'UCBSB_ERTMAX',t30,z2. 2;/ 

1 t40, Leeetentent nen neberteels.' . RETRIES ALLOWABLE") 
return 


end 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


3.4-56 
ERF. SRCIDTAILS. FOR; 1 


Page 
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UCBSB_ERTMAX $5 5ep-1984 VAX=11 FORTRAN V3. 4-56 Page 
Been Teas TESei ss | Peek nG RR RON Bat 28 cop raics.rons1° 2% 


PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE PIC CON REL LCL EXE RD NOWRT LONG 
1 SPDATA 6 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 40 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 203 


ENTRY POINTS 
Address Type Name 
0-00000000 UCBSB_ERTMAX 


VARIABLES 
Address Type Name Address Type Name 
AP-00000008@ L*1 EMBS$B_DV_ER AP-00000004@ L*1 LUN 
2-00000000 I*4 MAXIMOM_RET 
LABELS 
Address’ Label 
1-0000000C 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS I*4 LIBSEXTZV LINCHK 
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Ig-3ep=18 4 00:90:11 VAX-11 FORTRAN V3.4-56 Page 6 
-$ep-1984 13:53:34 DISKSVMSMASTER: CERF .SRCIDTAILS.FOR; 1 


subroutine ORBSL_OWNER (Lun,emb$l_dv_ownuic) 


byte lun 

integer*4 emb$l_dv_ownuic 
integer*4 group 

integert4 member 


group = LibSextzv (16,8,emb$l_dv_ownuic) 
member = LibSextzv (0,8,emb$l_dv_ownuic) 
call Linchk (lun,2) 

write(lun,10) emb$l_dv_ownuic group member 
format(* ',t8,'ORBSC_OONER’ t2 -28;6, : 

1 t40,"OWNER UIC C',53.3,',',03.3,° 

return 


end 
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PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 109 PIC CON REL LCL SHR EXE 
1 SPDATA 98 PIC CON REL LCL SHR NOEXE 
2 SLOCAL PIC CON REL LCL NOSHR NOEXE 
Total Space Allocated 229 


ENTRY POINTS 
Address Type Name 


0-00000000 ORBSL_OWNER 
VARIABLES 
Address Type Name Address Type Name 
AP-00000008@ I1*4 EMBSL_DV_OWNUIC $-008 0000 I*4 GROUP 
AP-00000004@ L*1 LUN -00000004 I*4 MEMBER 
LABELS 


Address Label 
1-00000010 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
I*4 LIBSEXTZV LINCHK 


es ig-3ep-1384 00: 20:1 


RD NOWRT LONG 
RD NOWRT LONG 


WRT LONG 


P 
CIDTAILS.FOR;1 


subroutine ucb$l_opcnt (Llun,emb$l_dv_opcnt) 


eeeeeesse 


0010 byte Lun 
0011 
$018 integert4 emb$l_dv_opcnt 
0014 integer*4 compress4 
0015 ° 4 
0016 
0017 
0018 
sith call Linchk (lun,2) 
0021 as a be somes dv ~ ae = A, 5°) 
00¢¢ 10 format(’ ,tB L“OPCN te 
Sos7 1 t40, lieeteckent toes dv ete Bee Q10"S THIS UNIT) 
0025 return 
0026 
0027 end 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 97 PIC CON REL LCL SHR EXE 
1 SPDATA 56 PIC CON REL LCL SHR NOEXE 
2 SLOCAL 28 PIC CON REL LCL NOSHR NOEXE 
Total Space Allocated 181 


ENTRY POINTS 
Add:ess 
0-00000000 


Name 
UCBSL_OPCNT 


Type 


VARIABLES 
Address Type 


2-00000004a I*4 
AP-000000048 L*1 


Address Type Name 
2-00000000 I*4 | 


Name 
EMBSL_DV_OPCNT 
LUN 


if Ben-1984 00:20:11 


RD NOWRT LONG 
RD NOWRT LONG 


WRT LONG 


ag age 8 
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UCBSL_OPCNT 
LABELS 
Address Label 
1-00000004 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
I*4 COMPRESS4 LINCHK 


reo ree 


ife}e sox ]8B2 99:88:4) | BTScbumemasten: Feat. SecIDTAILS.FoR:1"° 
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FUN 


eeeesesse 


0029 return 
0030 
0031 end 
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subroutine ucb$wlerrcnt (lun,emb$w_dv_errcnt) 


id byte lun 

Bots integert2 emb$w_dv_errcnt 

Bote integer*4 errors_this_unit 

0016 integer*4 compress4 

0017 

0018 

0019 

0020 

itd errors _this_unit = LibSextzv (0,16,emb$w_dv_errcnt) 
0038 call Linchk (lun,2) 

$058 Ct emb$w_dv greed serers he unit 
0026 10 format(' 8, UCBSO_ERRCNT' ,t28,24 

9027 1 40, laonterceat rh me this _unit)>, . ; ERRORS THIS UNIT") 


VAX=11 FORTRAN 
DISKSVMSMASTER: 


3.4-56 P 
ERF .SRCIJDTAILS.FOR;1 


001 


gssasssaesasssasscassass 


UCBSW_ERRCNT 


PROGRAM SECTIONS 
Name Bytes 
9 SCODE 96 
SPDATA 6 

2 SLOCAL 4 
Total Space Allocated 202 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
UCBSW_ERRCNT 


VARIABLES 
Address Type 


AP-00000008@ I*2 
AP-000000048 L*1 


Name 
EMBSW_DV_ERRCNT 
LUN 


LABELS 
Address 
1-0000000C 


Label 
10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
I1*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


ecbeoce 9:20:11 gated tae 


Attributes 
PIC CON REL LCL He EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR N OEXE RD WRT LONG 
Address Type Name 
2-00000000 1*4 ERRORS_THIS_UNIT 
Type Name 


LINCHK 


CIDTAILS.FOR;1 
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subroutine ucb$i_char (lun,emb$l_dv_char) 


33 


0010 byte Lun 

0011 

Bote integert4 emb$\_dv_char 

oot character*33 videvice_characteristics(0:7) 

Bo18 data videvice_characteristics(0) /*RECORD ORIENTED*'/ 
dh data videvice_characteristics(1) /*CARRIAGE CONTROL*'/ 
0031 data videvice_characteristics(2) /‘TERMINAL*'/ 

88 § data videvice_characteristics(3) /"DIRECTORY STRUCTURED®'/ 
: data videvice_characteristics(4) /"SINGLE DIRECTORY*'/ 

88 $ data videvice_characteristics(5) /*'’SEQUENTIAL BLOCK’ ORIENTED*'/ 
80 data videvice_characteristics(6) /*SPOOLED*'/ 

a8 $ data videvice_characteristics(7) /*OPERATOR®'/ 

boas character*22 v2device_characteristics(13:31) 

et e4 data v2device_characteristics(13) /"NETWORK®'/ 

sts] data v2device_characteristics(14) /‘"FILE ORIENTED®'/ 

$038 data v2device_characteristics(15) /*DUAL ACCESS*'/ 


data v2device_characteristics(16) /*SHARABLE®'/ 

data v2device_characteristics(17) /‘GEN®'/ 

data v2device_characteristics(18) /*AVAILABLE*'/ 

data v2device_characteristics(19) /*MOUNTED®?'/ 

data v2device_characteristics(20) /*MAILBOX*'/ 

data v2device_characteristics(21) /**MARKED’’ FOR DISMOUNT®'/ 
data v2device_characteristics(22) /*ERROR LOGGING*'/ 

data v2device_characteristics(23) /*ALLOCATED*'/ 

data v2device_characteristics(24) /*FOREIGN®'/ 
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ie t9He §4:9831 
data v2device_characteristics(25) /"SOFTWARE "WRITE LOCK'’#'/ 

data v2device_characteristics(26) /"CAPABLE OF INPUT®'/ 

data v2device_characteristics(27) /"CAPABLE OF OUTPUT®'/ 

data v2device_characteristics(28) /"RANDOM ACCESS*'/ 

data v2device_characteristics(29) /*REAL TIME®'/ 

data v2device_characteristics(30) /"DATA CHECK, READS*'/ 

data v2device_characteristics(31) /"DATA CHECK, WRITES*'/ 


call Linchk (lun,1) 


write(lun,10) e emb$l_dv_c 
format(' *,t8,'ucest OtnaR’  t26, 28.8) 


call output (lun,emb$l_dv_char,videvice_characteristics,0,0,6,'0') 


call oytgut s}yn-onbst. dv_char,v2device_characteristics, 
1. Thettedle’ Ss 


return 


end 


FORTRAN ith 
DISKSVMSMASTER:LER 


Pa 
CIDTAILS.FOR;1 


UCBSL_CHAR 


PROGRAM SECTIONS 


ENTRY POINTS 
Address Type Name 
0-00000000 UCBSL_CHAR 


VARIABLES 
Address Type Name Address Type Name 
AP-00000008@ I*4 EMBSL_DV_CHAR AP-00000004@ L*1 LUN 


ARRAYS 
Address Type Name 
-00000000 CHAR VIDEVICE_CHARACTERISTICS 
-00000108 CHAR V2DEVICE_CHARACTERISTICS 
LABELS 
Address Label 
1-00000016 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 


Type Name 
OUTPUT 


H 12 
NERSSHOM QUSBAAL SMELT 


Name Bytes Attributes 
0 SCODE 9 PIC CON REL LCL SHR Bx RD NOWRT LONG 
1 SPDATA | PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 8 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 970 


Bytes Dimensions 


264 (0:7) 
418 (13:31) 
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subroutine ucb$w_sts (lun,emb$w_dv_sts) 


byte lun 

integer*2 emb$w_dv_sts 

character*26 videvice_status(0:12) 

data videvice_status(0) /*TIMEOUT ENABLED®'/ 

data videvice_status(1) /"INTERRUPT EXPECTED®'/ 

data videvice_status(2) /"ERROR LOGGING IN-PROGRESS*'/ 
data videvice_status(3) /*CANCEL 1/0*'/ 

data videvice_status (4) /*ONLINE®'/ 

data videvice_status(5) /*POWER FAILED WHILE BUSY*'/ 
data videvice_status (6) /*TIMED OUT#'/ 

data videvice_status(7) /*RECEIVER INTERRUPT®'/ 

data videvice_status (8) /*BUSY*'/ 

data videvice_status (9) /"MOUNT IN-PROGRESS*'/ 

data videvice_status(10) /*DEALLOCATE AT DISMOUNT®'/ 
data videvice_status(11) /*SOFTWARE VALID*'/ 


data videvice_status(12) /"UNLOAD AT DISMOUNT#'/ 

character*33 v2device_status(14:15) 

data v2device_status(14) /**MOUNT VERIFICATION’ IN-PROGRESS*'/ 
data v2device_status(15) /*WRONG VOLUME DETECTED*'/ 


call Linchk (lun,1) 


write(lun,10) Sw_dv_sts 
format(' eB. UCBSO STS! t28, 26.4) 


call output (lun,emb$w_dv_sts,videvice_status,0,0,12,'0") 
call output (lun,emb$w_dv_sts,v2device_status,14,14,15,'0") 


VAX=11 FORTRAN 


Pp 
DISKSVMSMASTER: CIDTAILS.FOR;1 


12 
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-Sep- DISKSVM RF ..SRCIDTAILS.FOR;1 
0058 
4 return 
0061 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 93 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 44 PIC CON REL LEL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 552 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Total Space Allocated 689 


ENTRY POINTS 
Address Type Name 


0-00000000 UCBSW_STS 
VARIABLES 
Address Type Name Address Type Name 


AP-00000008@ I*2 EMB$W_DV_STS AP-00000004@ L*1 LUN 


00 
3 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
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ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 CHAR VIDEVICE_STATUS 338 (0:12) 
2-00000152 CHAR V2DEVICE_STATUS 66 (14:15) 
LABELS 
Address Label 
1-00000016 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
LINCHK OUTPUT 


K 12 
Beep 18Re 99:89:41 | NSsumGaastensteaessecaprarcs.ror;1 2% '7| 


subroutine ucb$l_media (lun,emb$l_dv_media) 


eeeeoses 


Bet byte lun 
pols integert4 emb$|_dv_media 
te 
15 
B08 integers4 track 
001 
0018 integer*4 sector 
0019 
0020 integert4 compress4 
0021 
a 
00 
0024 
bose cylinder = LibSextzv (16,16,emb$l_dv_media) 
34 track = LibSextzv (8,8,emb$l_dv_media) 
34 sector = LibSextzv (0,8,emb$l_dv_media) 
o3) call Linchk (lun,5) 
b088 write(lun,10) emb$\_dv podte.cy inder,track,sector 
0034 10 forastt -t8,UCBSC_MEDIA’,t24,28.8,/, 
0035 1 t40,"FUNCTION START ADDRESS,'./, 
0036 1 t40,° = CYLINDER #°,i<compress4 Coylinger)>.°..° of. 
0037 1 t40,° = TRACK #', i<compress4 (track)> “age e 
it 1 t40,° = SECTOR #',i<compress4 (sector)>, "7 
0040 return 
0041 
0042 end 


integer*4 cylinder 
| 
| 
| 


“| 


UCBSL_MEDIA if-fe Sep-1984 00:20: VAX-11 FORTRAN y3.4-56 Page 18 
3 15be P9:8eie, UN eSimsnasten: Fear. SecapTAILs.FoR:1 9 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 17 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 14 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 96 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 420 00 
00° 
ENTRY POINTS 99 
Address Type Name oo 
0-00000000 UCBSL_MEDIA 90 
00° 
VARIABLES 86. 
Address Type Name Address Type Name 00, 
200000000 1*4 CYLINDER AP=00000008@ 1*4 EMBSL_DV_MEDIA 00; 
AP-00000004@ L*1 LUN 2-00000008 I*4 SECTOR 00; 
200000004 [#4 TRACK 00; 
| 


LABELS 
Address Label 
1-00000010 10° 
| 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 LIBSEXTZV LINCHK 


M12 
THU CULL YMENERMTREL HabsBcsorans.ronss"™™ 


38 


000 
0004 
0005 subroutine irp$w_func (lun,emb$w_dv_func,qio_string) 
O00F 
0008 
0009 
0010 byte Lun 
0011 
OOrg integer*2 emb$w_dv_ func 
oete character*(*) qio string 
Soy$ integer*4 device_dependent_modifiers 
Bb18 character*15 videvice_independent_modifiers(14:15) 
0020 data videvice_independent_modifiers(14) 
et 1 /*IOSM_DATACHECK®'/ 
$058 data videvice_independent_modifiers(15) 
gece 1 /*1OSM_INHRETRY®'/ 
0026 integert4 compressc 
$057 ' 2 
0028 
0029 
0030 
9 call Linchk (lun,2) 
0033 write(lun,10) emb$w dv func gio. string 
0034 10 format(' *,t8,"IRPSQ_FONC’,t28,24.4,/, 
0035 1 t40,a<compressc (qto_string)>) 
0036 
0037 
0038 
it entry qio_function_modifiers (lun,emb$w_dv_ func) 
0041 
B2§ ' 
sok device_dependent_modifiers = LibSextzv(6,7,emb$w_dv_ func) 
0045 if (device_dependent_modifiers .ne. 0) then 
Boer call Linchk (lun,1) 
$049 write(lun,15) 
0050 15 format(* °,t40,"DEVICE DEPENDENT MODIFIER(S)") 
Beet endif | 
0088 call output (Lun,emb$w_dv_func,videvice_independent_modifiers, 
0085 1 14,14,15,°0") 
56 return 
0057 


IRPSW_FUNC 


0058 


PROGRAM SECTIONS 
Name 


0 SCODE 
1 SPDATA 
2 SLOCAL 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 


Rw 00000020 I*4 
P-000000048 L*1 


ARRAYS 


Type Name 
I*4 COMPRESSC 


LABELS 
Address’ Label 
1-0000001A 10° 


end 


Total Space Allocated 


Name 
IRP$W_FUNC 


DEVICE_DEPENDENT_MODIFIERS 
LUN 


Address Type Name 
2-00000000 CHAR VIDEVICE_INDEPENDENT_MODIFIERS 


Address 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 


Label 
1-0000003A 15° 


I*4 LIBSEXTZV 


Type Name 


1é 1984 
Ig: Sep-1986 


Address Type 
0-00000055 


Address Type 


AP-000000088 I*2 
2-00000024@ CHAR 


79:88:31 


Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 


Name 
QIO_FUNCTION_MODIFIERS 


Name 
EMBSW_DV_ FUNC 
QIO_STRING 


Bytes Dimensions 
30 (14:15) 


LINCHK 


Type Name 


OUTPUT 


Page 20 
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subroutine irp$Sw_bcnt (lun,emb$w_dv_bcnt) 


B 
5 
33 
393 


byte lun 
0011 
Bolg integer*2 emb$w_dv_bcnt 
Bete integert4 transfer_byte_count 
0016 - integer*4 compress4 
5017 . : 
0018 
0019 
0020 
003 transfer_byte_count = LibSextzv(0,16,emb$w_dv_bcnt) 
it call Llinchk (lun,2) 
0025 write(lun i emb$w dv_becnt, ponerer byte_count 
0026 10 format(' § IRPSO_BTNT', t58e2 ' 
a i 1 t40, tT TRANSEER SIZE~ gM (transfer _byte_count)>,". BYTE(S)") 
94 return 
0030 
0031 


mien: HEH RAAT Weed HES seal 


-Sep-1984 M ERF .SRCIDTAILS.FOR;1 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 96 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 71 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 40 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 207 


ENTRY POINTS 
Address Type Name 
0-00000000 IRP$W_BCNT 


VARIABLES 
Address Type Name Address Type Name 
AP-000000088 I*2 EMBSW_DV_BCNT AP-000000048 L*1_ LUN 
2-00000000 I*4 TRANSFER” ~BYTE_COUNT 
LABELS 
Address’ Label 
1-0000000C 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 I*4 LIBSEXTZV LINCHK 


Or19BG 13:59:34 DISKSUMSMASTER: ERE SRCIDTAILS.FOR:1 °° | 


0001 

pO0s 

0006 subroutine irp$w_boff (lun,emb$w_dv_boff) 
0006 

0007 

0008 

0009 

0010 

0011 

pots integers4 page_byte_offset 

0014 integer*4 compress4 

0015 

0016 

0017 

ob page_byte_offset = LibSextzv (0,16,emb$w_dv_boff) 
gogo call Linchk (lun,2) 

Oo5§ if (page_byte_offset .eq. 0) then 

0024 write(lun,10) e rts dv_b 

0025 10 format(" °,t8,' PSQ “sore: 1128. 24.4,/, 

0026 1 t40, TRANSFER. PACE “ALIGNED *) 

og $4 else 

0029 write(lun,15) emb$w dv_boff,page_byte_offset 
$030 15 format(' ',t8, IRPS$O_BOFF', (88 "5 at 

oo ; nate’ Sentegient (page_ ay EN - BYTE PAGE OFFSET") 
0035 

0034 return 

0035 

0036 end 


byte lun | 
integer*2 emb$w_dv_boff 
| 
} 


IRPSwW_BOFF 


PROGRAM SECTIONS 
Name 
° SCODE 
SPDATA 
2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type Name 
0-00000000 IRPS$W_BOFF 


VARIABLES 
Address Type Name 
AP-000000088 I*2 EMBSW_DV_BOFF 
2-00000000 I*4 PAGE_BYTE_OFFSET 
LABELS 
Address Label 
1-0000000C 10° 


Address’ Label 
1-0000003D 15° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4 


Type Name 
I*4 LIBSEXTZV 


ifeBeo-1984 09:20:11 


Attributes 
RD NOWRT LONG 


RD NOWRT LONG 
RD WRT LONG 


Address Type Name 
AP-00000004@ L*1 LUN 


Type Name 


LINCHK 


VAX=11_ FORTRAN 
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2] 


S8Ssssssss 


esssssssssssssssssesesssssssssss 


if see te Tyee, DISKSUNSMASTER: 


subroutine irp$l_pid (lun,emb$l_dv_raqpid) 


eesesesees 


byte lun 
0011 
pois integert4 emb$\_dv_raqpid 
0014 
0015 
0016 
et FA call Linchk (lun,2) 
0019 grsvetiyn, 19) ¢ emb$\_dv rgpid 
0020 10 format(' ',t8,"IRPSC_PYD',t24,28.8,/, 
0021 1t40, "REQUESTOR PIB’) 
0098 
00 return 
0024 
0025 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 56 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 46 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 114 


ENTRY POINTS 
Address Type Name 


0-00000000 IRPSL_PID 
VARIABLES 
Address Type Name Address Type Name 


AP=00000008 1*4 EMBSL_DV_ROPID AP-00000004@ L*1 LUN 
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IRPSL_PID 


LABELS 
Address Label 
1-00000004 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
LINCHK 
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subroutine irp$q_iosb (lun,emb$l_dv_iosb) 


byte lun 

integers4 emb$\_dv_iosb(2) 
integer*4 bytes_transfered 
integert4 compress4 


bytes_transfered = LibSextzv (16,16,emb$l_dv_iosb(1)) 
call Linchk (lun,2) 
tet ge Cemb$l_d 
yh "IR re I 
,28.8,t40,'10SB, 
i - “artEtgs TRANSFERRED 


return 


-2),bytes_transfered 
bytes_transfered)>, 


oe -Ooc 
uw 
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Nun 
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end 
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IRP$Q_10S8 


PROGRAM SECTIONS 
Name 
0 SCODE 
1 SPDATA 
2 SLOCAL 
Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
IRP$Q_10SB 


VARIABLES 
Address Type 


2-00000000 I*4 
AP-000000048 L*1 


Name 
BYTES_TRANSFERED 
LUN 


ARRAYS 
Address Type 
AP-000000088 1*4 


Name 
EMBSL_DV_IOSB 


LABELS 
Address Label 
1-00000008 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
1*4 COMPRESS4 


Type Name 


I*4 LIBSEXTZV 


Bytes 
122 
$3 
64 


262 


if Ben-1986 00:20:11 


Attributes 

PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

Pi® CON REL LCL NOSHR NOEXE RD WRT LONG 


Address Type Name 
2-00000004 I*4 | 


Bytes Dimensions 


(2) 


Type Name 
LINCHK 


ee 
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subroutine cdrp$w_boff (lun,emb$w_sp_boff) 


byte Lun 

integert2 emb$w_sp_bof f 
integere4 page_byte_offset 
integer*4 compress4 


page_byte_offset = LibSextzv (0,16,emb$w_sp_boff) 
call Linchk (lun,2) 

if (page_byte_offset .eq. 0) then 

write(lun,10) emb$w_sp_boff 

format(’ *,t8,'CDRPSW_BOFF’,t28,24.4,/, 

1 t40," TRANSFER PAGE ALIGNED’) 

else 

write(lun,15) emb$w_sp_boff.page_byte_offset 
format(' 28, "CORPSW GOFF -t28 304, ' 

1 Soy. secenpreses (page_byte_offset)>, - BYTE PAGE OFFSET") 
en 

return 


end 


IIT ddde tate tetetetetetetetatatatatatatatatatatetetetetetetetetetetetatatatetatatata 


PROGRAM SECTIONS 


Bytes Attributes 


1? PIC CON REL LCL SHR EX RD 
1 PIC CON Rel LCL SHR WORX RD 
4 PIC CON REL LCL NOSHR NOEX RD 


Total Space Allocated 291 


Address Type Name 


Address Type 
AP-00000008@a I* 
® 


CDRPSW_BOFF 


Name Address Type Name 


EMBSW_SP_BOFF AP-000000048 L*i LUN 
PAGE _BYTE_OFFSET 


Address’ Label 
1-0000003E 15° 


FUNCTIONS AND SUBROUTINES REFERENCED 


I1*4 COMPRESS4 


Type Name Type Name 
I*4 LIBSEXTZV LINCHK 
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S 
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oe 
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007 
008 
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0001 
Bons 
000 
tied subroutine cdrp$l_bcnt (lun,emb$l_sp_bcnt) 
6097 
0008 
0009 byte lun 
0010 
0011 
HO 
001 integer*4 compress4 
0014 
0015 
0016 
0017 
pot8 call Linchk (lun,2) 
0020 write(lun, 10) sees) sc°6 bent.i = 0,1) 
0021 10 format(' §,t8 CNT’. ¢2 4, 28. 8,/, 
002¢ 1 t40, ‘TRANSFER’ oie Otaekerait (emb$l_sp_bent)>,". BYTE(S) ") 
0024 return 
0025 
0026 end 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 96 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 64 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
2 SLOCAL 28 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
Total Space Allocated 188 
ENTRY POINTS 
Address Type Name 
0-00000000 CDRPSL_BCNT 
VARIABLES 
Address Type Name Address Type Name Address Type Name 


integer*4 emb$l_sp_bcnt 
| 
| 


2-00000004@ 1*4 EMBSL_SP_BCNT 2-00000000 I*4 | AP-00000004@ L*1 LUN 


Poa a 


if: $e0-1944 P9:geidd UNSdimSRAStEN:Feaesehcapraits.ror:1-2% > 
LABELS 
Address Label 
1-00000004 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
I*4 COMPRESS4 LINCHK 


B525e8 


o335 
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0025 


10 
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subroutine cdrp$w_func (lun,emb$w_sp_func,qio_string) 


byte lun 

integer*2 emb$w_sp_ func 
character*(*) qio_string 
integer*4 compressc 


call Linchk (lun,2) 

write(lun,10) emb$w_sp_func,qio_strin 

format(' -t8,CORPSW_FUNC',t28 24.4, ’ 

1 t40,a<compressc (qid_string)>) 

call qio_function_modifiers (lun,emb$w_sp_ func) 
return 


end 
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wef 
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ort TERCISHE (0:20) SMR LSANTSL 
PROGRAM SECTIONS 
Name Bytes Attributes 


=e 
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RF .SRCIDTAILS.FOR; 1 


HH EXE RD NOWRT LONG 
HR NOEXE RD NOWRT LONG 
SHR NOEXE R 


Q SCODE "43 PIC CON REL LCL 
1 SPDATA PIC CON REL LCL 
44 PIC CON REL LCL D WRT LONG 


2 SLOCAL 
Total Space Allocated 196 


ENTRY POINTS 
Address Type Name 
0-00000000 CORPS$W_FUNC 


S8SSSssssssss 
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VARIABLES 
Address Type Name Address Type Name Address Type Name 
AP-00000008@ I*2 EMBSW_SP_FUNC AP-00000004@ L*1 LUN 2-00000000@ CHAR QI0_STRING 


LABELS 
Address Label 
1-00000004 10° 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESSC LINCHK QIO_FUNCTION_MODIFIERS 


EWAN 
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PAPAIN 
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subroutine cdrp$l_pid (lun,emb$l_sp_raqpid) 


eseeseses 


byte Lun 
pore int 24 b$l id 
nteger em sp_r 
001 g -SP_rap 
001 
0014 
0015 
it call Linchk (Llun,2) 
0018 eee et ate. sp rapid 
0019 10 format(' ',t8 RPSL nid t24,28.8,/, 
0020 1°t40, "REQUESTOR. SPID™ 
pos) 
0022 return 
0023 
0024 end 
PROGRAM SECTIONS 
Name Bytes Attributes 

0 SCODE 56 PIC CON REL LCL SHR EXE RD NOWRT LONG 

1 SPDATA 47 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

2 SLOCAL 12 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 

Total Space Allocated 115 


ENTRY POINTS 
Address Type 
0-00000000 


Name 
CDRPSL_PID 


VARIABLES 
Address Type 
AP-00000008a 1*4 


Name 
EMBSL_SP_ROPID 


Address Type Name 
AP-00000004@ L*1 LUN 
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5-Sep-1984 3: 33:44 DISKSVMSMASTER: CERF .SRCIDTAILS.FOR;1 . 
0001 | 
000 
000 | 
0004 | 
0005 subroutine cdrp$q_iosb (lun,emb$l_sp_iosb) | 
top ay | 
0009 | 
byte Lun 
integer*4 emb$\_sp_iosb(2) 
integer*4 bytes_transfered 
integer*4 compress4 


bytes_transfered = LibSextzv (16,16,emb$l_sp_iosb(1)) 
call Linchk (Lun,2) 


epee 
DONOVSWN—"OOONOUS wo 


sssssssssssssessssssses 


write(lun, ye soups s fog}? ‘. = A, se) ,bytes_transfered 
10 forsett c_f0se .t2 
1 t24,z a’te6 Tepiearieal les: transfered)>, 
1 a ifsc RAL a 
1 
2 end 
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CORPS$Q_10SB 


PROGRAM SECTIONS 
Name 


0 SCODE 
1 SPDATA 
2 SLOCAL 


ENTRY POINTS 
Address Type 
0-00000000 


VARIABLES 
Address Type 
ab-o000000¢a Lt 
ARRAYS 
Address Type 
AP-00000008@ 1*4 


LABELS 
Address 


1-00000008 10° 


Type Name 
1*4 COMPRESS 


Label 


Total Space Allocated 


Name 
CDORP$Q_10SB 


Name 
BYTES_TRANSFERED 
LUN 


Name 
EMBSL_SP_IOSB 


FUNCTIONS AND SUBROUTINES REFERENCED 


Type Name 


1*4 LIBSEXTZV 


14 


Bytes Attributes 
"$8 PIC CON REL LCL SHR EXE 
PIC CON REL LCL SHR NOEXE 
64 PIC CON REL LCL NOSHR NOEXE 
263 
Address Type Name 
2-00000004 I[*4 | 
Bytes Dimensions 
8 (2) 
Type Name 


LINCHK 


F 
Srsepn-19be 19:89:42 | biSksumshasten: tear. 


NOWRT LONG 
NOWRT LONG 
WRT LONG 


56 
SR 
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DUP 
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subroutine cdrp$l_media (lun,emb$i_sp_media) 


9 byte Lun | 
pots integer*4 emb$\_sp_media | 
Bete integer*4 compress4 | 
B018 
001 | 
pot8 
dh call Linchk (lun,2) | 
0021 write(lun, 10) Cemb$l Shep media,i 
00 ¢ 10 rere at(* *,t8,'CORPSC EDIA’. t24, 2 By 
oS 1 40, srakt he LBN #*,i<compress4 tenb§l_sp_nedie?>,"."? 

0025 return 
0026 
0027 end 
PROGRAM SECTIONS 

Name Bytes Attributes 

0 SCODE 96 PIC CON REL LCL SHR EXE RD NOWRT LONG | 

1 SPDATA 5 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 

2 SLOCAL 28 PIC CON REL LCL NOSHR NOEXE RD WRT LONG | 

Total Space Allocated 181 
ENTRY POINTS | 
Add:ess Type Name 
0-00000000 CDRPSL_MEDIA 
VARIABLES 
Address Type Name Address Type Name 
2-000000048 I*4 EMBSL_SP_MEDIA 2-00000000 I*4 | 
AP-00000004@ L*1 LUN ~ ~ 


CDORPSL_MEDIA 


LABELS 
Address Label 
1-00000004 10° 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
I*4 COMPRESS LINCHK 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:DTAILS/OBJ=0BJ$:DTAILS MSRC$:DTAILS 
/ CHE CK=(NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG=(NOSYMBOL§ , TRACEBAC 


/STANDARD=(NOSYNTAX ,NOSOURCE_FORM) 
/SHOW= (NOP PREPROCESSOR. NOINCLODE ,MA 


COMPILATION STATISTICS 


Run Time: 8.21 seconds 
Elapsed Time: 20.50 seconds 
Page Faults: 147 

Dynamic Memory: 170 pages 


MAP) 
/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD LINES 


vecReect9He QO:R0:H. YM 


/NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 
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